rm(list=ls(all=TRUE))
#
#
library(MASS)
library(foreign)
library(basicspace)
#
setwd("/Users/ssaiegh/Mac/Representation Gap/Paper PA")
#
data <- read.dta("mexico.dta")
attach(data,warn.conflicts = FALSE)
#
T <- cbind(self,calderon,pri,pan,prd,verdes,pt_mexico,nueva_alianza)
#
mode(T) <- "double"
colnames(T) <- c("SELF","CALDERON","PRI","PAN","PRD","VERDE","PT","PANAL")
#
#
result <-aldmck(T,polarity=5,respondent=1,missing=c(95,96,97,98,99),verbose=F)
#
